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O gravador 
National RQ-2222 
eopreferido 
pelos usuarios de micro- 
computadores. Elegravae 
carrega progr arnas com 
a mais alta fidelidade e i 
amaior' 



Porque tern urn sistema de 
cabecote proprio para 
o uso em micros. O gravador 
National RQ-2222 tem urn 
coniador de fita que facilita 
a IocalizacSo do programa a 
ser utihzado. E tem tambem 
urn comando unico para 
gravacao tipo "Urn Toque", 
mimo mais pratico. Um 
gravador que vive na memo- 
ria do computador merece 
tambem viver na sua. 

Grave este nome: Nati 



National 



'o naZona Franca de Mana 



^7^ 

National 




EDITORIAL 









uem imaginar que o desenvolvimento da comunicagao 
homem/maquina, atraves de computadores pessoais, se esgota no aiual 
estagio tecnologico e cientifico da informauca esta muito enganado. 
Softwares, hardwares e sistemas operacionais sao desenvolvidos cada vez mais 
para, alem de responder as necessidades do mercado, abrir novas 
possibilidades de utilizacao. 

Este e o caso do CP 500 modelo M80, ultimo lancamento da CP 
Computadores Pessoais: este equipamento possui urn dos mais poderosos 
sistemas operacionais, o SO08, que permite a utilizaeao da maior biblioteca 
de software do mundo e a formacao de eficientes redes de computacao. 

Neste numero, a Geragao Proiogica publica as caracteristicas desta nova 
maquina e suas possibilidades de software. Mas as informacoes nao param 
por ai: ensinamos como iransformar seu computador pessoal num piano, num 
controlador de luzes, portas, televisores e segredos de cofres, alem de dicas do 
comando POKE. Tudo isso com urn unico objetivo: facilitar e desenvolver a 
comunicacao homem/maquina. 

Carlos Roberto A. Gauch 
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EPORTAGENS 



Transforme o seu CP em urn Contro- 
lador de Luzes, Televisores, Portas 
e Segredos de Cofres 13, 14 e 15 



No Encartc Especial, o programa Aker- 
naak (para voce escrever sua propria his- 
toria de misterio no CP 500), um 
Controle Bancario para o CP 400 e o 
jogo Aterrissagem Lunar (Parte 1) para 
o CP 200. 
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AGENDA 



CURSOS 




Redes Locais de Computadores — 

Dias: 19 e 20 de agosto. Taxa: 50 
ORTN's. Mais informacoes pelos te- 
lefones: 286-6891/226-2913. Ocur- 
so e minisirado pelo IBPI — Insti- 
tuto Brasileiro dePesquisa em Infor- 
matics — Rua Mena Barreto, 77 — 
Rio de Janeiro. 

Planejamento de Informatica na 
Empresa — Dias: 18 a 20 de setem- 
bro. Taxa: 60 ORTN's. Mais infor- 
macoes pelos telefoncs: 286-6891/ 
226-29 1 3. curso e minist rado pelo 
IBPI — Instituto Brasileiro de Pes- 
quisa em Informatica — Rua Mena 
Barreto, 77 — Rio de Janeiro. 

Supervisicalc — Dias: 22 e 23 de ju- 
lho. Horario: 8:30 as 17:30. Taxa: 35 
ORTN's. SPCI — Sao Paulo Com- 
puter Institute — Avenida Rebou- 
cas, 1669 — Sao Paulo — telefone: 
883-0355. 

Introducao ao Micro para Secreta- 
ries Exeeutivas — Dias: 8 a 10 e 15 
dejunho a 7 de julho. Horario: 18:30 
as 22:00. Taxa: 38 ORTN's. SPCI — 
Sao Paulo Computer Institute — 
Avenida Reboucas, 1669 — Sao 
Paulo — telefone: 883-0355. 

Introducao ao dBase III — Dias: 15 
e 16dejuIho. Horario: 8:30 as 17:30. 
Taxa: 45 ORTN's. SPCI — Sao Pau- 
lo Computer Institute — Avenida 
Reboucas, 1 669 — Sao Paulo — te- 
lefone: 883-0355- 
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Batalha Naval 



Sou assinante da Geragao Prologi- 
ca e estou muito satisfeito corn as ma- 
terias publicadas. Tanto, que estou ate 
fazendo propaganda entre os amigos 
possuldores de computadores pessoais. 



•Wordstar — Dias: 17 e I8dejulho. 
Horario: 8:30 as 17:30. Taxa:- 35 
ORTN's. SPCI - Sao Paulo Com- 
puter Institute — Avenida Rebou- 
cas, 1669 — Sao Paulo — telefone: 
883-0355. 

C, a Linguagem do Futuro — Dias: 
10 a 12 de julho. Taxa de inscricao: 
50 ORTN's. Periodo: diurno. O cur- 
so e oferecido pela Compucenter Mi- 
croinformatica — R ua Beia Cintra, 
746 — 3? andar — telefone: (Oil) 
257-0577/255-5988 — Sao Paulo. 

Conhecendo o Unix — Dias: 8 a 12 
de julho no pen'odo noturno; 29a 30 
de julho no pen'odo diurno. Taxa de 
inscricao : 40 ORTN's. Compucenter 
Microinformatica — Rua Bela Cintra, 
746 — 3? andar — telefone: (01 1) 
257-0577/255-5988 — Sao Paulo. 

Microcomputadores para Sistema 
Distribuido — Dias: 15 a 17 de ju- 
lho. Periodo: diurno. Taxa de inscri- 
cao: 60 ORTN's. Compucenter Mi- 
croinformatica — Rua Bela Cinira, 
746 — -3? andar — telefone: (Oil) 
257-0577/255-5988 — Sao PauEo. 

dBase 3 o Banco de Dados para PCs 

— Dias: 18 e 19 de julho. Perio- 
do: diurno. Taxa de inscricao: 20 
ORTN's. Compucenter Microinfor- 
matica — Rua Bela Cintra, 746—3? 
andar — telefone: (01 1) 257-0577/ 
255-5988 — Sao Paulo. 

Introducao aos Micros — Dias: 29 
e 30 de julho. Periodo: diurno. Ta- 
xa de inscricao: 20 ORTN's. Com- 
pucenter Microinformatica — Rua 
Bela Cintra, 746 — 3? andar — tele- 



Amigos* na verdade, estou escre- 
vendo para pedir uma informaeao so- 
bre o programa BATALHA NAVAL, 
publicado na GP n? 9: quando termi- 
nei de digilar a linha 640, verifiquei 
que a linha 650 estava incompleta. ou 
seja, falta o destino do 1? GOSUB. 
Gostaria da resposta o mais breve pos- 
sivel, pois eu e minha esposa somos fa- 
naticos por este jogo. 

Sem mais, abracos e parabens pelo 
belo trabalho, em nome de todos os 
usuarios Proldgica. 

Gilberto Martins Loureiro — 
Sao Joao do Meriri — RJ 
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fone: (Oil) 257-05 
Sao Paulo — SP. 



Planejamentopara'Microinformati- 

ca — Dias: 15 a 19dejulho. Perio- 
do: noturno. Taxa de inscricao: 40 
ORTN's. Cornpuccnter Microinfor- 
mdtica — Rua Bela Cintra, 746 — 3? 
andar — telefone: (01 1 ) 257-0577/ 
255-5988 — Sao Paulo. 

Iniciacao do dBase 2 — Dias: 22 a 23 
de julho. Taxa de inscricao: 30 
ORTN's. Compucemer Microinfor- 
matica — Rua Bela Cintra, 746 — 3? 
andar — telefone: (Oil) 257- 
0577/255-5988 - Sao Paulo. 

CPM Avancado — Dias: 25 e 26 de 
julho. Taxa de inscricao: 40 ORTN's. 
Compucenter Microinformatica — 
Rua Beia Cintra, 746 — 3? andar — 
telefone: (011) 257-0577/255-5988 
— Sao Paulo. 



EVENTOS 



Informatica 85 — A V Feira Inter- 
national dc Informatica, Telecomu- 
nicacoes, Organizacao e Equipa- 
mentos de Escritorio, ou simples- 
mente Informatica 85, sera" realiza- 
da de23 a 29 de setembro no Parque 
Anhembi, em Sao Paulo. Paralela- 
mente a Feira, sera realizado o 18? 
Congresso Nacional de Informatica. 
O programa, ainda incompleto, de- 
vera incluir temas como informati- 
ca esoberania nacional, automacao 
bancaria, automacao industrial, pri- 
vacidade em bancos de dados etc. 



Amigo Gilberto, ficamos felizes por 
voce estar satisfeito com nosso traba- 
Iho e esperamos semprc estar a altura 
de suas necessidades. Quanto ao pro- 
grama BATALHA NAVAL, a linha 
650 deve ser digitada da seguinie forma; 

650 NX= RND(4);GOSUB 1290 ;IF JP = 1 

THEN 650 

E deve-sc incluir a seguinie linha: 

1415 ON NX GOTO 1420, 1430, 1440. 

1450 

Pedimos desculpas pelo atraso na res- 

posta, mas enviamos as informacoes 

solicitadas pelo correio e a carta vol- 

tou por incorrccoes no endereco. 



Velocidade no CP 200 

Possuo urn computador pessoal CP 
200 e necessilo gravar em filas diver- 
sos arligos; por isso, preciso de infor- 
macoes sobre como (ornar meu CP 
mais rapido. 

Francisco Oswaldo Castelluccf Filho — 
Araraquara — SP 




Francisco, o CP 200 apresenta duas 
funcoes de armazenamento, com duas 
velocidades: rapida (quick storage) e 
alta velocidade (speed storage). Os co- 
mandos de speed storage aumentam 14 
vezes a velocidade de gravacao e leitu- 
ra, facilitando e agilizando a operacao 
com o gravador cassete. 

Existem ire's comandos disponivcis 
no modo dc alta velocidade (speed 
storage): 

Gravacao (SSAVE) 
Verificacao (SCHECK) 
Leitura (SLOAD) 

A escolha dos comandos e efetua- 
da airaves do menu c para se ter aces- 
so a ele, digite o seguinte comando: 
RAND USR 8200 

Apos prcssionar ENTER, aparece- 

ra o seguinie comando na tela: 

Voce deseja: LER 

GRAVAR 

VERIFICAR 
? 

Para selecionar uina dessas operacoes, 
pressione a tecla correspondeiUe (L, G 
ou V). Ap6s os comandos L ou G, 
aparecera na tela o seguinte comando: 
DIGITE O NOME DO PROGRAMA 

Selecionando L ou G, se quiser dar 
urn nome ao programa, digite-o, no 
maximo, com seis caracteres. Senao, 
pressione ENTER para a operacao ser 
iniciada. Mas, atencao: antes de teclar 
ENTER, acione PLAY/RECORD no 
gravador, para que voce nao perca 
parte do programa, 

Selecionando V, e feita uma com- 
paracao do programa que esta na me- 
moria do computador com o que esta 
na fita. Para tanto, posicionea fita no 
comeco do programa em questao, 



acione PLAY e digue V, para ini- 
ciar a gravacao. 

Neste processo, a gravacao e leitu- 
ra sao executadas em velocidades mui- 
to maiores que o normal, por isso o 
sistema de reproducao e muito exigi- 
do. Para que voce nao tenha proble- 
mas, mantenha o cabeeoie de gra- 
vacao sempre limpo e utilize somente 
fitas de boa qualidade. 



Memdria do CP 200S 

Goslaria de receber as seguintes in- 
formacoes: como se copia fita de pro- 
grama e possibilidades de expansao da 
capacidade de memoria do CP 200S. 
Antonio Carlos M. Siiva — 
Sao Jose dos Campos — SP 

Caro Antonio Carlos, para se co- 
piar fita de programa, siga a seguinte 
rotina: ajuste a tonalidade de seu gra- 
vador para 10 e o volume entre 7 e 8. 
Este volume pode ser aSterado de acor- 
do com a gravacao do programa ou a 
marca do gravador usado. 

Feito isso, tecle LOAD"". Posicio- 
ne a fita e pressione PLAY. Se apare- 
cer na tela o codigo 0/0, a gravacao foi 
bem sucedida. Entao, pressione RUN 
para a execucao do programa. 

Quanto a expansao de capacidade 
de memoria, o CP 200S possui um co- 
nector lateral que fornece todos os si- 
iiais necessaries para se ter acesso dire- 
to ao microprocessador Z-80. A par- 
tir daf pode ser feita a expansao de me- 
moria. Porem, no mercado, nao ha 
nenhum cartucho que possibilite esta 
expansao, que tera de ser realizada pe- 
lo proprio usuario. 




As cartas para a redacao da Geracao 
Prologica deverao ser enviadas ao se- 
guinte endereco: 

Editelc — Editora Tecnica Eletrdnica 
Ltda. — Rua Casa do Ator, 1060 — 
CEP 04546 — Sao Paulo — SP 
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SOFTWARE HOUSES 
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DISPONIVEIS NO 




Com o sistema operacional SO 8, comp a tivel com 

o CP/M, o usuario tern a s ua disposigao a mais 

vasta biblioteca de programas profissionais. 



Neste niimero, os softwares da Nasajon Sistemas. 



Mala Direta 
com Editor de Textos 

Pcrmiic o eadastramcnco de clientes 
com seus dados principals, lais como: 
nome, endercco, tipo, data dc nasci- 
mentoetc, para posterioralteracao, ex- 
clusive consulta.Fornecc relatorios de 
iodos os clicntes do cadastre ou apenas 
os selccionados pclo operador. Emiic 
eeiquetas nos tamanhos pequeno, me- 
dio cgrandc, para enderecamento pos- 
tal. Com o Editor de Textos e possivel 
criar e armazenar textos para scrcm 
cmitidos para os clientes selecionados. 

Contabilidade Geral 

Fornece saldos parciais com apuracao 
de receitas e despesas, balancete com- 
parative corn o mfis correspondence ao 
exercicio anterior e relatorios naimpres- 
sora. Apresentaum piano deconias em 
cinco niveis, relacao de historicos pa- 
droes, lancamentos, extratosdecontas, 
balancetes de verificacao , abertura e fe- 
chamemo dc diario, livro diario, balan- 
cete mensal, balanco geral, demonstra- 
cao dc resultados do exercicio e apura- 
cao dcresultados com manipulacao de 
formulas a criterio do operador. 

Folha de Pagamento 

A partir do cadastramemo de funcio- 
narios, cmitc listagens operacionais: da- 



dos da empresa, filiais, departamentos 
e secoes, cargos e salarios, bancos, ren- 
dimentosedescontos, lAPASelR.ta- 
belas gerais, cartoes de ponto e folha de 
pagamento, recibo dc pagamento e re- 
lacao para deposito bancario, relacao 
desa!ariobase,emissaodo RA1S, rela- 
cao de empregados, imposto de renda 
reiido na fomeanual.contribuicaosin- 
dical, acumulados anuais c movimen- 
tacao mensal. 

Crediario 

Atraves do cadasi ramento dos client cs, 
com suas informacoes basicas, como 
nome, endercco, cidade etc., permite 
a geracao de contratos para estes clien- 
tes, controlando as vendas a prazo. For- 
nece relatorios com a movirnentacao 
das vendas, clientes com pagamento cm 
airaso, movimento dos rccebimentos 
pendentes por filial e geral, fichas indi- 
viduals de clientes, onde podem scr vi- 
sualizados o historico, os dados gerais 
eaposi*;aodocontratoatual,relat6rio 
deconias a receber,emissao das l?e2? 
vias do came, listagem geral do cadas- 
tre e emissao de etiquetas para mala di- 
reta com os contratos atrasados. 

Controle do 
Exigivel/Disponivel 

Controla os depdsitos/saques em ban- 
cos, atraves dos lancamentos realiza- 



dos, a exigi bilidade das comas a pagai . 
bem como as disponibilidades atuais c 
futuras (COntaS a recebcr). Permite a 
manuteneao dos arquivos de bancos, 
classificacoes das com as a pagar/rece- 
ber. Emite relatorios operacionais on- 
de sao visualizadas as contas a pagar/ 
receber, a disponibilidade no pertodo, 
os totais do mes por classificacao, a con- 
ciliacao do pcriodo com todos os lan- 
camentos realizados no mes, o movi- 
mento financeiro e o resumo dos saldos 
bancarios. 



Controle de Projetos 



E compost o por ires subsistemas: con- 
trole de estoque, elaboracao dc orca- 
mentosecontroledeproducao. Permiic 
a interligaeao com os sistemas de Con- 
tabilidade Geral, Departamento Pes- 
soal e Folha de Pagamento. Com o ca- 
dastramento dos itens basicos, elcmen- 
tos componentes de produtos, itens de 
grupo, conjumo de ilens basicos. que 
compoe uma unidade padrao de medi- 
da, permite acomposicao da obra atra- 
ves da informacao dos dados principais. 
Emite relatorios. Calcula orcamemo, 
emite listagens, indica percentuais par- 
ciais e gerais. 

Maiores informacoes sobrc estes e ou- 
tros programas na Nasajon Sistemas, 
Avcnida Rio Branco, 45 — Grupo 1311 
— CEP 20.090 — Rio dc Janeiro — Te- 
lefone: (021) 263-1241. 
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O CP 500 modelo M80 
e o profissional de sua 
categoria com a 
maior base de software 
em todo o mundo. 



Odinarnismo do mercado de infor- 
maiica no Brasil exige da indus- 
iria nacional solucoes para necessida- 
des cada vez mais acentuadas, que 
caracterizarn-se pela tendencia de espe- 
cializacao e profissionalizacao, pois a 
computacao e uma das ferramentas 
mais utilizadas em todos os setores pro- 
fissionais ou atividades que exigem mais 
eficienciaeagilidade. Emrespostaaes- 
ta necessidade, a CP Computadores 
Pessoais desenvolveu o CP 500 mode- 
lo M80, o mais versaiil e poderoso pro- 
fissional do mercado brasileiro. O M80, 
alem de possuir lodas as caracterislicas 
anteriores do CP 500, tambem possibi- 
lita a opcrac-ao com o Sistema Opera- 
tional SO0S, desenvolvido pela CP e to- 
lalmenie compativel com o sistema mais 
difundido e com maior base de softwa- 
re em todo o mundo: o CP/M. O 
CP 500 modelo M80 trabalha com urn 
microprocessador Z 80, clock: 2,35 
MHz, memoria 64 K no sistema SO08 
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c 48 K (RAM) e 16 K (ROM) no DOS 
500. Possui teclado capacitivo, o que 
garante mais de 1 milhoes de operates 
em suas 64 teclas, alem do teclado nu- 
merico reduzido. 

Apesar de o CP 500 M80 lambem 
operar com o DOS 500, a gran- 
de vantagem do SO08 o a capacidade do 
video: 80x24, enquanio que no 
DOS 500 a capacidade e de 64 x 16 ou 
32 x 16. Mas as vamagens do M80 nao 
param no SO08. Como se trala de urn 
equipamento professional eeficiente, si- 
multaneamentecomoCP 500mode)o 
M80 a CP coioca a disposicao do mer- 
cado a Interface serial CP 532C para 
comunicacao de dados, printer e out ros 
perifericos que requerem este tipo de si- 
nal. OCP 532Cpodeserfacilmenteins- 
olado pelo usuario atraves de conect or 
especit'ico. 

OM80 possui lambem quatro ver- 
soes: (022) com um drive, face 
simples e capacidade de 175 Kbytes; 
(022D) com um drive, face dupla e ca- 
pacidade de 350 Kbytes; (023) com dois 
drives, face simples e capacidade de 
350 Kbytes; e (023D) com dois drives, 
face dupla e capacidade de 700 Kbytes. 



Produ/ido em Sao Paulo, na unidade 
fabril da CP Compuiadores Pessoais, 
oCP 500modelo M80teraumaprodu- 
cao aproximada de mil maquinas 

mensais. 

Segundo o Depai lamcnto de Pro- 
dutos da CP, o modelo M80 e a 
resposta da empresa as neccssidades do 
mercado e, por isso mesmo, nao custa- 
ra mais caro por causa das inovaeoes, 
modernizacao e profissionalazacao do 
equipamento. Ao comrario, o M80 re- 
presema a mais eficiente relacao cus- 
to/beneficio da sua categoria. 

Junto com o CP 500 modelo M80, 
o usuario recebe os seguintes mi- 
litaries para o SO08: 
EDIT2 - Editor de icxtos. 
PIP — Copia de arquivos. 
STAT — Consulla ao diretorio. 
GERSIS — Programa gerador do Sis- 
tema Operacional SO08. 
SUBMIT c XSUB - Programa para 
execucao de varies comandos, scm a ne- 
cessidade de interferencia do usuario. 
FORM500 — Programa formatador de 
disqueie. 

CO.NF500 — Programa que permite a 
configuracaodos parametros do SO08. 



COPIA51KI — Copiador de disqueie 
(backup). 

Os softwares podem trabalhar em 
35 trilhas, 10 seiores por trilha e 
5 1 2 bytes por setor, com uma memoria 
livredeaproximadainente 175 K,ouse- 
ja, igual a formatacao do Sistema 700. 

Com este sofisticado modelo do 
CP 500, o usuario tera a sua dis- 
posicao a maior bibliotecade software 
dispom'vel no mercado, podendo ope- 
rar com os programas da linha do 
CP 500, do SO08 (CP/M), do Sistema 
700 e do Super 700, que vao desde so- 
fisticados editores de lextos e planilhas 
eletronicas a programs decontabilida- 
de geral, folhas de pagamenio, credia- 
rio, controle de estoque, mala direia 
com editor de textos, controle do exigi- 
vel/disponivel, controle de projetos, 
pianejamento e comrole de producao 
com orcamemo, ativo fixo, controle de 
custos e estoque para confeccoes, con- 
trole de reservas de hoteis, sistema de 
videoclubes, programas especificos pa- 
ra agricultura, engenharia, medicina, 
educacao ou qualquer outra area pro- 
fissional. Na pagina Software Houses, 
uma selecao de programas compativeis 
comoSO08. 



ACESSORIOS CP: A INTEGRACAO NO MERCADO 



O dcsenvolvimemo tecnologico 
dos equipamentos da CP Computa- 
dores Pessoais tern como objetivo so- 
lucionar os problemas de todos os 
seus usuarios, beneficiando-os com 
as mais eftcientes utilizacoes da com- 
putacao. 



Neste sentido, a empresa tambem 
esta lancando a mais completa linha 
de acessorios, visando a integracao 
dosquase 100 000 usuarios decom- 
putadores pessoais de tecnologia 
Prologica, com outros equipamen- 
tos disponiveis no mercado: 
• Cabos de Ligacao CP 500 para 
Primers Paralelas; 




Cabos de Ligacao CP 300 para 
Printers Paralelas, 
Cabos de Ligacao P 500 para 
equipamentos Apple, 
Cabos de Ligacao P 500 para 
equipamentos IBM PC, 
Cabos para Gravador/CP 200, 
Cabos para Gravador/CP 300, 
400 e 500, 

Cabos de Antena para 
CP 200, 300 e 400, 
Cabos de Alimentacao para 
CP 500, P 500 e P 720, 
Cabos de Ligacao CP 500 para 
P500, 

Cabos de Ligacao Modem para In- 
terface RS 232C (Videotexto), 
Fitas Prosoft para CP 200S, 
Fitas Prosoft para CP 300 e 
CP500, 

Fitas Prosoft para CP 400, 
Capas Protetoras para CP 200 e 
CP 300, 

Capas Protetoras para CP 400, 
Capas Protetoras para CP 500 e 
Capas Protetoras para P 500. 
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traves do comando POKE voce tem varias possibilidades 

de software em seu com putador pessoal. ^_ 

Neste numero, selecionamos varias dicas destes comandos 
enviadas pelos usuarios membros do CLUBE CP'S. 
Atengaoi Estas dicas foram testadas e aprovadas 
pela CP Computadores Pessoais. 



Daniel WajnKarien, estudante -de 
Sao Paulo, enviou o segu inie comando 
POKE: 

Como bloquear o List do CP 4O0 
COLOR: 



POKE 383,158 (para bloquear) 
POKE 383,0 (para voltar ao normal) 



Luis Carlos Medina, engenheiro de 
Sao Paulo, mandou a sua colecao de co- 
mandos POKE: 



POKE 65495.0 



Aumenta a velocidadc dc lodos os 
comandos ou funcoes. Naoecompaii- 
vel com sistema em disco. 

Nao pode ser usado durante leitura 
ou gravacao de programas ou dados em 
fita cassete. 



POKE 65494,0 



Retorna para normal apos utilizar o 
comando POKE 65495,0. 
Ex.: 
PROGRAMA 1 

10 FOR I = 1 TO 10000 

20 A = A + 1 

30 NEXT I 

40 PRINT A 
PROGRAMA 2 

5 POKE 65495,0 

10 FOR I = 1 TO 10000 

20 A = A + 1 

30 NEXT I 

40 PRINT A 

50 POKE 65494,0 

Note que o mesmo programu utili- 
zando a instrucao POKE 35495,0 tem 
menor tempo de processamento. 



POKE 65497A 



Possibilita que a velocidade dos co- 
mandos ou funcoes scja mais rapida que 
ao utilizar POKE 65495,0. 

Nao pode ser utilizado durante lei- 
tura ou gravacao de programas ou da- 
dos cm fita cassete. 

Desabilita a emissao de dados no 
video. 



POKE 654976.0. 



Retorna para o modo normal depois 
de utilizar POKE 65497,0. 
Ex.: 
PROGRAMA 3 

5 POKE 65497.0 

10 FOR I = 1 TO 10000 

20 A = A + 1 

30 NEXT I 

40 POKE 54496,0 

50 PRINT A 

Note que este programa demorara 
menos tempo de execucao que os ante- 
riores. 

Observe que, apesarde o video "dc- 
saparecer" durante a execucao dos cal- 
culos, estessao realizados normalmen- 
te e os dados sao apresentados logo que 
o comando POKE 65496,0 eexecutado. 



POKE 359.60. 



Mensagem de tela mais lenta. Nao 
compativel com disco. 



POKE 359,0. 



Retorna ao modo normal depois dc 
se utilizar POKE 359,60. Impossibilida- 
de dc E/S em disco. 



POKE 359,128. 



Produz difcrentes caractcres grafi- 
cos, paradiferentesteclas. Nao compa- 
tivel com disco. 



POKE 359.126. 



Reiorna ao normal apos POKE 
359,128. 

Este comando, embora apareea co- 
mo caractere grafico, sera executado. 



POKE 359.255. 



!nibc o teciado. 



POKE 359,126. 



Retorna ao modo normal apos 
POKE 359,255. 



Classificados 
e Correspondencias 

HaruldoS. Ferreiraquer trocar pro- 
gramas erevistas para oCP200. Osin- 
teressados devcrao enviar correspon- 
dence para Caixa Postal 81-825 — 
27.500 — Resende— RJ. 

Denis Scheer Timm csta querendo se 
corresponder com o usuario Frank, de 
Linhares (ES). No emanto, o Frank nao 
deixou endereco aqui no CLUBE, por 
isso vamos publicar o endereco de De- 
nis, para que o nosso companheiro dc 
Linhares se comunique com ele, OK? 

A16, aid, Frank! Escreva para o De- 
nis (Rua Francisco Xavier de Barros, 
114 — 18. 100 — Sorocaba — SP). 
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NALISE E CRIACAO 
E UMA MALA DIRE 



PARTE IV 



Consults ou altera?ao nos dados do arquivo. 



Luiz Antonio Borba 



No numero anterior, nos vimos como cOntrolar a quan- 
tidade de registros que estavam gravados no arquivo; vere- 
mos agora, usando aquele mesmo parametro (numero de 
registros), como fazer uma consulta ou alieracao nos da- 
dos do arquivo. 

Apenas para lembrar, vejamos como comeca o programa: 



10 CLEAR 2000 .CLS: RESERVA ESPACO DE STRING E APAGA A TELA 

20 IX% = 1 

30 OPEN'R".1." ARQUIVO/DAT'M 10 

40 FIELD 1.2 AS IXS.108 AS ZZS 

45 FIELD 1.30 AS NOS,40 AS ENS.13 AS TLS.20 AS CDS.2 AS ESS, 

5ASCPS 
50GET1.IX% 

60 IF E0F(1) THEN 70 ELSE IX.% = CVI(IXS) 
70 CONTINUACAO DO PROGRAMA 



Para fazcrmos uma alieracao ou uma consulta dentrodes- 
le nosso arquivo, devemos solicitar ao operador o numero 
do registro a ser manipulado. Ao rceebermos este numero, 
devemos entao compara-lo primeiramcnte com zero; se is- 
to for verdade, o fluxo do programa deve voltar ao menu 
principal, se for falso, devemos efetuar a cornparacao com 
o valor da variavel IX %. Seo numero fornecido for maior 
que \X°/o , devemos colocar na tela uma mensagem de erro, 
informando ao operador que este registro nao existe. Sc, 
por outro lado, o numero dado pelo operador for menor 
ou igual <( = )a IX^o, basta fazcrmos um GETcomeste 
valor. No exemplo abaixo, imagincmos que o menu princi- 
pal tenha iniciado na linha 80: 






500 INPUT"DIGlTE REGISTRO A SER CONSULTADO";R% 

510 IF R% =0 THEN 80 ELSE 520 

520 IF H%< = IX% THEN 520 ELSE PRINT'R-EGISTRO NAO EXISTE. 

REDIGITE-:GOTO500 
530 GET 1.R% 



Neste instante devemos colocar os dados deste registro 
na tela, para que o operador possa consulta-los. Sera ne- 
cessario colocar tambem ao lado de cada dado (nome, en- 
derecoetc.) um numero, para que, atraves deste, o opera- 
dor possa fazer a alteracao desejada . Vamos ver como fica- 
ria a tela: 



TELA DE CONSULTA/ ALTERACAO 



(1) NOME 

FULANODETAL 

\2) ENDERECO 

RUA DAS CAMEIIAS 1234 APTO 12 

13>F0NE: (01 1)251-3433 (4) CEP: 04517 

(5) CIDADE: SAO PAULO (6) ESTADO: SP 

"« 778" DESEJA ALTERAR (S/NJ? 



Este e apenas um e\cm plo que voce pode usar para mon- 
tar a sua tela de consulta. O numero que aparece emre as- 
pas na ultima linha da tela e o endereeo para ser usado com 
o comando PRINT® ; que poderia ser usado da seguime 
maneira: 



600 PRINT .a 778.-DESEJA ALTERAR (S/N)";:INPUT ALS 
610 IF ALS ="N" THEN 500 ELSE 620 



No programa, devemos testar agora se o valor de ALS 
c igual a "S" ou * 4 N". Se for igual a "N*\ devemos voltar 
o fluxo do programa para uma nova entrada de numero de 
registro; se for igual a "S", devemos proceder a alieracao. 

Para proceder a alteracao, devemos criar uma rotina, que 
coloque no mesmo endereeo de tela (@778) a seguinte men- 
sagem: QUAL ITEM DESEJA ALTERAR (1 u 6)?; veja- 
mos como ficaria isto no programa: 



620 PRINT «778."OUAL ITEM DESEJA ALTEBAR<1 a 6)' 

630 INPUT a 

640 ON AL% GOTO 700.800,900.1000.1100,1200 

650 GOTO 620 




Como o comando ON ... GOTO desvia o programa em 
funcaodovaIordeAL°/o,seAL% formenorque 1 ou maior 
que 6, o fluxo ira diretamente para a linha 650 onde o man- 
damos de volta a 1 inha 620 para que o operador digite o va- 
lor correto. Tudo isto sem necessidade de usar o comando IF. 

No proximo numero veremos como fazer e gravar estas 
alteracoes no nosso arquivo. 
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1 . Akernaak, urn desafio a sua intcligencia e imaginacao. 
Urn jogo de misterios e situates famasticas que voce mes- 
mo devcra construir a partir de dados armazenados em seu 

compuiador CP 500 ou CP 300 2, 3, 4, 5 e 6 

2. Controle Bancario. 

O software ideal para voce esquecer os probiemas com sua 

movimentacao bancaria. Para o CP 400 COLOR 7 e 8 

3. Alerrissagem Lunar. 

Prove sua capacidade motora, perspicacia e agilidade com 

mais este jogo para seu CP 200 8 



JOGO 



Akernaak, um desafio 
a sua inteligencia e imaginagao 






P 500 ou 300 48 Kb RAM 



Akernaak nao e jogo de imagens on- 
de voce tem que destruir mecanicamen- 
te figurasgeometricas. Nao! Akernaak 
e um jogo de mistcrios e situacoes que 
voce tera que construir. Comose fosse 
um livro onde os personagens criassem 
vida propr ia e o escri tor nao I i vesse mais 
comrole s-obre eles. 

A historia comeca quando voce che- 
ga em casa e percebe que entrou num 
mundo fantastico, comrolado pelo Al- 
tar de Akernaak. Todos os nossos 
monstros e fantasias perdidas estao la, 
escondidas atras das portas, no escuro 
dadespensa, noscorredores, nas som- 
bras da biblioteca ou do gramado. 
Ogros, duendes, magos, feiticeiros, ti- 
gres, fadas e guerreiros passeiam pela 
casa. Se voce nao liven medo, poderaen- 
contrar varias armas de protecao, de- 



fesa e ataque espalhadas pelos 
comodos. 

A sua historia podera ter um final 
inesperado, dependendo de sua capaci- 
dade de luta, descobertas e associacao 
de situacoes pois para cada inimigo ha 
uma arma adequada. que voce pode- 
ra fazer com um cetro de prata ou um 
numero rnagico? Em que guerreiro con- 
fiar? Como, enl'im, libertar sua casa do 
poder fantastico de Akernaak? Para cs- 
crever esta historia, peca ajuda ao seu 
computador pessoai : ele the dara pala- 
vras-chave para o desenrolar da hist6- 
ria . Mas aqui vai um conselho de quem 
ja lutou muito com o mistcrioso Aker- 
naak: cuidado com a area e com o cam- 
po zero! No entanto, se eles forem ine- 
vitaveis em sua imaginacao, nao se es- 
queca nunca da chave, da capa magica 
e do espelho, pois estes objetos poderao 



Ihe salvar a vida na luta contra os feiti- 
ceiros. 

Mas, talvez, voce nem chegue a lu- 
tar contra um feiticeiro. Talvez um 
duende o mate logo na entrada da casa 
ou um tigre o fira mortalmentc em seu 
quarto, pois voce nao pegou nenhuma 
arma pelo caminho. Mas, talvez, voce 
consiga escrever sua historia com um fi- 
nal feliz: a libertacao de sua casa do po- 
der de Akernaak. Quem podc saber? 
Afinal cada historia e uma historia. 

Digite corretamente a listagem em 
linguagem Basice "chame" Akernaak. 
Enquantoo computador "procura" o 
programa, nao se preocupe se lhe pare- 
cer ouvi r uma voz grave murmurando: 
"Voce nao deveria ter entrado aqui, po- 
bre mortal..." Etudo imaginacao! No 
entanto, por precaucao, tome cuidado 
com o elfo que esta no corredor... 



10 ' **************************** 

20 '* RKERNRRK * 

30 '* C-P- COMPUT- PESSORIS * 

40 '* CP 300 / CP 500 * 

50 ' **■******■**#***************** 

60 RANDOM :CLS:CLEflR20G0 

70 DEFINTB-Z : DEFSTRfl : DIMMA ( 30 ) , FP ( 

30) ,VDC*<14> ,0BJ$<30> ,L0*(19) »D<19 

,1) ,CF7.(10) ,BL(10) 

Sp FQRN=0T014 : RERDVQC* ( N ) : NEXTN : FO 

RN=0TO30 : RERDOB J* < N > : NEX TN : F0RN=OT 

Q19:RERDL0$<N) :NEXTN 

90 F0RN=0T03O : MR < N ) =RND ( 15 ) -1 : NEXT 

N : F0RN=15T019 : D < N , ) =-1 : D < N , 1 ) =-1 = 

NEXTN : D ( 16 , ) =RND < 15 ) -1 : D ( 16 , 1 ) =RN 

D(15)-l 

100 FORN=24TO30 : MR ( N ) =-1 : NEXTN : MR ( 

2)=S:MR(16)=13:MRC15>=4:MR(19>=-1: 

MR ( 4 > = 15 : MR < 6 ) =16 : K=RND < 2 ) +14 : MR ( 7 

>=-i:Mfl<il)=K:MR<3>=31-K:Mfl<i3)=-i 

:MR(l7)=-l:MR<27)=19:Mfl(7)=lS:MR(2 

S)=1S 

110 F0RN=0T010:RERDBL(N): NEXTN 

120 VE*="V0CE ESTR' " : V0$="V0CE OU 

VE " 

130 F0RN=0T014 

140 D(N,0)=RND(15)-1--D(N,1)=RND<15 



) -1 ! IFD ( N , ) =D ( N , 1 ) ORD ( N , ) =N0RD ( N 

,1>=NTHEN140 ELSENEXTN 

150 DRTR FUJR,LUTE,PEGUE,SRIR,RJUD 

fl , FRLE , RBRR , ENTRE , LISTE , TOQUE , DESC 

RNSE,DESISTR, , , 

160 DRTR R ESPRDR," ESCUDO" , " LIVR 

0" ,R CRPR," DIAMRNTE"," ANEL" ," ES 

PELHO'V PERGArnINHO",A MOEDA DE OU 

R0,R LRNTERNR,R FLRUTR," ELMO" ,R G 

ARRRFA DE VINHO," CETRO DE PRRTR" , 

R CHRVE,R RRCR,R ESTATUA,A PASSAGE 

M," ALTRR DE AKERNAAK" ,R ESFERR DO 

S ELFOS 

170 DRTR " DUENDE"," OGRO" , " TIGRE 

"," ELFO"," PITON"," MRGO"," GUERR 

EIRO RKERNRRK", " FEITICEIRO DO FOG 

0"," MESTRE-FEITICEIRO", " ASTERION 

"," DRAGRO" 

ISO DRTR A ENTRADA DA CRSA,0 HRLL , 

CORREDOR, A ESCRDA,0 QUARTO 

190 DATR A GARRGEM,R SRLA,0 SRLAO 

DE J0G0S,A BIBLIOTECA, A PORTA DOS 

FUNDOS 

200 DRTR R DESPENSR,R COZINHA,0 BA 

NHEIR0,0 GRAMADO, MURO 

210 DRTA A ARCR,R PASSAGEM SECRETR 

,0 CASTELO VERMELHQ,0 DIAMANTE, C 
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AMPO ZERO 

220 DRTR 3,6,7,1,6,2,6,3,3,2,3 

230 PRINTSTRING$(60,"=") 

240 PRINTTRB<20> ji "R CRSR DE RKERNfl 

RK" 

250 PRINTSTRING*<60, "=") 

260 PRINT"VOCE VOLTOU PRRR CRSR RP 

GS UM DIR DE TRRBRLHO- 

RO CHEGRR Nfl ENTRRDR DR CASR,POREM 

,V0CE SENTIU QUE TUDO SE 

TORCIR 'fl SUR VOLTfl- 

ERP UMR BRRREIRR RKERNRRK..." 

270 PR INT "OS RDORRDORES DE RKERNRP 

K TOMRRPM POSSE DE SUR CRSR 

E ISOLRRRM DO UNI VERSO-" 

2S0 PRINT"QURND0 VOCE NRO SOUBER 

QUE FR2ER,INTR0DUZR 'RJUDA'" 
290 P=0 

300 PRINTVE*;"N"5L0*(P> 
310 FE=0 : F0RN=OT030 : 1 FMR (NX > PTHEN 
330 ELSEIFNOTFETHENPRINT"AQUI HR' 
: "5 :FE=-1 

320 PRINT"UM"::OBJ$<N> f H , " jj 
330 NEXTN:IFFETHENPRINTCHR$<8) 
340 IFD ( P , ) =-10RD ( P , 1 ) =-lTHEN360 
350 PRINT "VOCE PODE SE MOVER PRRR 
M 5L0$(D(P,0))!i" OU PRRR ";LQ$(D(P, 
1)> 

360 IFCF<-3THENPRINTVE$; :IFCF<-6TH 
ENPRINT"FERIDO"ELSEPRINT"CRNSRDO"E 
LSEIFCF > 1THENPRINTVE$ ; "SUPER-RESIS 
TENTE" 

370 INPUT fl:F0RN=0T014:IFMID$(L0$< 
N) ,3,LEM(R) )=RTHEN440 ELSENEXTN 
380 F0RN=0T014:IFV0C$(N)< >RTHENNEX 
TN:G0T0400 

390 ON N+i G0T01060 ,940 ,790 ,1 
400 ,550 ,610 ,1230 ,1430 ,S70 
,1010 ,1140 ,2230 

400 PRINT"NRO ENTENDI IST0":G0T037 

410 ' 

420 ' ======MOVIMENTRCRQ====== 

430 ' 

440 IFFEO0THEN430 

450 IFD ( P , ) =NORD ( P , 1 ) =NTHENP=NEL5 

E490 

460 IFFS>OTHENMfl<FS)=P:FS=0 

470 GOTO 1560 

4S0 N=FB:PRINT M 0" ?OBJ$(N);" PULR S 

OBRE VOCE! ":G0SUB1S50 :G0T01560 

490 ' 

500 PRINT"NRO Hfl ' PRSSRGEM PRRR "; 

LO$(N) 

510 G0T01560 

520 ' 

530 ' =======flJUDfl 

540 ' 



550 PRINT"0 SEU OBJETIVO E' LIBERT 

RR SUR CRSR DOS PKERNRAKEN- 

PRRR SE MOVER USE O NOME DO LOCRL 

PRRfl ONDE QUISER IR-EX: 

'GRRRGEM' - " 

560 PRINT"SEU VOCRBULRRIO E':";:F0 

RN=0T014:PRINTV0C$(N) $*'," 5 :NEXTM:P 

RINT 

570 G0T01560 

5S0 ' 

590 ' ======FflLE 

600 ' 

610 INPUT"0 QUE";fl:PRINT"-";fl;" ! ! " 

:IFR="RK0N"THEN660 

620 IFVRL ( A X >0THENIFVRL ( R ) =RNTHEN 

RN=0:PRINTVE$; "SUPER RESISTENTE PO 

R RLGUM TEMPO" :CF=CF+RND(4)+5sG0T0 

1560 ELSEPRINT"NRO DIGR QURLQUER N 

UMERO NUMR CRSR DE RKERNRRK ! " :CF=C 

F-S:G0T01560 

630 IFA=PM$RNDMR(30)=PTHEN2200 

640 PRINT"NRDR RCONTECE--." 

650 GOTO 1560 

660 IFRND(4) >FRTHENFR=Ffl+l :G0T0750 

670 FR=FR+l:IFRND(3)=2THEN720 

6S0 PRINT" 

R BRRREIRR SOFREU UMR SRTURRCRO--. 

UNI VERSO RODERIR TER SIDO DESTRU 

IDO COM ESSE USO 

JNDI5CRIMINPD0 DE PRLRVRRS MRGICRS 

•FELIZMENTE SO' VOCE , SOFREU" 

690 PRINT"fl CONSEQUENCIR DE SUR IM 

PRUDENCIfl: 

SURGE UM DOS SETE RSTERIONS- - - " 

700 MR<29)=P:BL B /.(9)=Q 

710 GOT01560 

720 PRINT" 

fl PRLRVRR 'AKON' ORIGINOU-SE Nfl PR 

IMEIRR BRTRLHR ENTRE RKERNRRK 

E AS FORCRS DO BEM CHEFIRDRS POR W 

ORIEL. RO PERCEBER QUE R 

BRTRLHR NRO TERMINRRIfl , WORIEL PRON 

UNCIOU-R CINCO VEZES-0 CROS 

GERRDO DEU ORIGEM PO UNIVERSO- " 

730 PRINT"DECIDIRRM ENTRO QUE ESTR 

PRLRVRR SO' SERIfl DITA NOVAMENTE 
NO FIM DOS TEMPOS--." 

740 PRINT"VOCE DESTRUIU UNIVERSO 
. . ." SG0T02270 

750 D ( P , ) =RND < 15 ) -1 : D ( P , 1 ) =RND ( 15 
) -1 : IFD ( P , ) =D ( P , 1 > ORD ( P , O ) =PORD ( P 
il)=PTHEN750 ELSEPRINT"VOCE CONSE 
GUIU TORCER A BRRREIRR NESTE PONTO 
":G0TO1560 
760 ' 
770 '======PEGUE 

7S0 ' 
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790 INPUT "0 QUE M ;fl:F0RN=0T030:G0SU 

B2220 SIFEXTHENS20 ELSENEXTN 

800 60T0950 

310 G0T01560 

820 IFN > 1 4THENIFN > 19THENPRINTVE* ; " 

DOIDO OU VOCE NRO SRBE QUE E' UM 

";OBJ$CN) ;"?'• :G0T01560 ELSEPRINT"V 

OCE NRO PODE CRRREGRR UM"*OBJ$(N): 

G0T01560 

S30 FP<N)=-l:Mfl(N)=-l:G0T0S70 

SAO ' 

350 '======LISTE 

360 ' 

870 FE=0 : F0RN=0T01 A : IFNOTFP ( N ) THEN 

890 ELSEIFNOTFE THENPRINTVE*; "LEV 

RNDO:" ; :FE=-i 

SSO PRINT"UM";OBJ$(N);'V\; 

S90 NEXTN : IFFETHENPRINTCHRS < 3 ) ELSE 

PRINT"VOCE NRO CRRREGR NRDfl" 

900 G0T01560 

910 ' 

920 '======LUTE 

930 ' 

940 INPUT "COM QUEM" ; R:F0RN=0TQ30:G 

0SUB2220 :IFEXTHEN960 ELSENEXTN 

950 PRINT"NR0 HR' ";R;" RQUI":GOTO 

1560 

960 IFN<20THENPRINT"V0CE QUER LUTP 

R CONTRR UM";OBJ$<N) ;"???" : G0T0156 



970 CB=2:G0SUB1850 :G0T01560 

930 ' 

990 '======TOQUE 

1000 ' 

1010 IFNOTFP < 10 >THENPRINT" VOCE NfiO 
LEVA NENHWM INSTRUMENTQ"ELSEPRINT 
"VOCE COMECR fl TOCRR R FLRUTR":FT= 
-1 

1020 G0T01560 
1030 ' 
t040 '=====FUJR 

1050 ' 

1060 INPUT"PRRR ONDE" ;fl:F0RN=0T019 

:IFMID*(L0$(N) ,3,LEN(fl) )< >RTHENNEX 

TN: PRINT "0 QUE E' ISSO?" :G0T01060 E 

LSEIFN>14THEN1490 

1070 IFFB=0THEN450 

10S0 IFRND ( 5 ) =3THENCB=~2 : N=FB : PRIN 

T"VOCE TROPECR E 0" ;OBJ$(N) ; " RT 

RCR PELRS C0STRS":G05UB135O :G0T01 

590 

1090 IFRND(3X3THENPRINT"0";0BJ$(F 

B>;" SEGUE" :FS=FB:FB=0:60T0450 

1100 PB«Oi60T0450 

1110 ' 

1120 ' =====DESCRNSE 

1130 ' 

1140 FE=0:PRINT"VOCE " ; : IFFP(O) THE 



NFP < ) =0 : MR ( ) =P : FE=-1 
1 150 I FFP ( 1 ) THENFP < 1 ) =0 : MR < 1 > =P : FE 
=-1 

1 160 IFFP < 11 ) THENFP < 1 1 > =0 : MR < 1 1 ) =P 
:FE=-1 

1170 IFFETHENPRINT" LRRGOU SURS RR 
MRS E "; 

tlflO PRINT"ESTR' DESCRNSRNDO" :CF=C 
F+2 : IFCF > OTHENCF=0 
1190 G0T01560 
1200 ' 

1210 y =====RBRR 
1220 ' 

1230 INPUT "0 QUE";R:F0RN=0T030:G0S 
UB2220 :IFN0TEXTHENNEXTN:G0T0950 
ELSEIFN< >15THEN1250 ELSEIFFPQ4)TH 
ENPRINT"VOCE RBRIU R RRCR" ; : FR7.=-1 
:IFRND(3)=2THENPRINT" E FOI SUGRDO 
POR ELfl-SUR CHRVE ESTR' FORfl-":FR 
7.=0:P=15:FP(14)=0:MR(1A)=RND(15)-1 
ELSEPRINTELSE1300 #h 
1240 FB=0:G0T0156O 
1250 IFN=2THENIFN0TFP ( 2 ) THENPRINT" 

LIVRO"; :G0T01290 ELSE1310 
1260 IFN=12THENIFN0TFP ( 12 ) THENPRIN 
T"fl GRRRRFR" ; :G0T01290 ELSEFG=-1:P 
RINT"R GRRRRFR ESTR' RBERTR" :G0T01 
560 

1270 IFN=7THENIFN0TFP ( 7 ) THENPRXNT " 
PERGRMINHO" ; :G0T01290 ELSEG0SUB2 
230 :PM$=R:G0SUB22S0 :PM*=PM$+fl: PR- 
INT" VOCE LE: 

-fl PRLRVRR SECRETfl E' ";PM$: PRINT" 
ELE DESRPRRECE - . - " : FP ( 7 ) =0 : GOTO 156 


1230 PRINT" VOCE NRO PODE RBRIR UM" 
;OBJ*(N) :GOT01560 

1290 PRINT" NRO ESTR' COM V0CE":G0 
T01560 

1300 PRINT M R RRCR ESTR' TRRNCRDfl" : 
G0T01560 

1310 FP(2)=0:Mfl<2)=RND'(20)-l -"PRINT 
"RNTES QUE LIVRO DESRPRRECR DE S 
URS MROS,VOCE LE: M :0NRND<5)G0T0132 
' , 4700 , 4750 , 4300 , 4350 
1320 RN=RND(100):PRINT"-0 NUMERO M 
RGICO E': H ;RN:G0T01560 
1330 PRINT" ---.PORQUE OS MRGOS DET 
ESTRM VINH0-":G0TO1560 
1340 D(15,0)=RND(15)-l:PRINT"-Hfl' 
UMR PRSSRGEM Dfl RRCR PRRR ";L0*(D< 
15,0) ) :G0TO1560 

1350 PRINT "-'RKON' E' R PRLRVRR DR 
S DIREC0ES":G0T01560 

1360 PRINT"-- --0 PERGRMINHO QUE ES 
Tfi' DENTRO DO DIRMRNTE TEM SEGRE 
D0":G0T01560 
1370 ' 



GERACAO PROL6GICA 






i3so '=====snifl 

1390 ' 

1400 IFPO15THEN1420 ELSEIFRND(3 ) = 

2THENMAC15)=19:PRINT"ERR UMR EMBOS 

CflDfl-- ■ "ELSEIFRND(5X3THENMR(15)=R 

ND ( 15 )-i: PRINT "fl RRCR SE MOVEU" 

1410 FB=0:P=MR<15):GDT01560 

1420 IFP=1STHENP=MR(4) :FB=0:G0T015 

60 

1430 ' 

1440 PRINT'O QUE VOCE QUER DI2ER C 

OM 'SRIR'?" :G0T01560 

1450 ' 

1460 '=====ENTRE 

1470 ' 

1430 INPUT"ONDE" ; R : F0RN=0T019 : IFR < 

>MID$(LO*(N> ,3,LEN(R> )THENNEXTN :G0 

T0950 

1490 IFN<15THEN440 ELSEIFN=15THEN 

IFFfl"/.THENFB=0:P=N:G0T01560 ELSE130 



1 500 IFN=18THENFP ( 4 ) =0 : MR ( 4 ) =P : FB= 

0:P=N:G0T01560 

1510 IFN=16THENFB=0 : P=N : G0T01560 

1520 PRINWOCE NRO PODE ENTRRR N" 

;LO$<N) :G0T01560 

1530 ' 

1540 '======RCONTECIMENT0S POSSIVE 

IS====== 

1550 ' 

1560 F0RN=20T030:IFMR<N>< >PTHEN15S 
ELSEIFRND(10)>BL7.(N-20)THEN1580 
1570 PRINT"0";OBJ$<N) ; " RTRCR ! " : 
CB=0:G0SUB1S50 
15S0 NEXTN 

1 590 FORN=20T030 : IFFB ) OORRND ( 6 ) < 40 
RMfl(NXOTHEN1620 ELSEK=MR(N) :Mfl(N) 
=D(MR(N) ,RND(2)-1) : IFMR(N)=-1THENM 
ft<N)=K:G0T01620 

1600 IFP=KTHENPRINT"0";OBJ*(N) ; " V 
RI PRRR ";LO$(MR(N) ) 

1610 IFMfl(N>=PTHENPRINT"UM";0BJ*<N 
)5" RPflRECE,VINDO D"5L0$(K) 
1620 NEXTN 

1630 IFT>30RNDMR<24)=-1THENIFRND<1 
0)=7THENPRINTV0«;"UM GRITO ESTRRNH 
0---":MP(24)=RND(15)-l 
1 640 IFTM < 1THENIFMR ( IS ) =PRNDTM=0TH 
ENTM=RND < 30 ) +20 : PRINT VO* ; " : 
-NRO DEVERIR TER ENTRRDO RQUI,MORT 
RL"ELGEELSETM=TM-i : IFTM=OTHENTM=-i 
:PRINTV0$;": 

-DEMOREI R CHEGRR,MORTRL,MRS RGORR 
VOCE PflGRRR' POR TER INVRDIDOO SR 
NTURRIO DE RKERNRRK" : MR(25>=P:BL7.< 
5)=7 

1650 IFTE>0THENTE=TE-1 : IFTE=OTHENM 
fl(0)=RND(20)-l 



1660 IFPT>100RNDMR<26)=-1THENIFR:ND 

( 10 ) =1THENPRINTV0$ ; " : 

-VOCE JR' CRUSOU MUITOS PROBLEMRS, 

VERME ■ 

SURGE UM GUERREIR0.":Mfi(26)=P:GOT0 

1560 

1670 IFP=Mfl C 19 ) THENIFRND ( 3 ) =1THENP 

RINT"R ESF-ERR EXPLODE. " :S=-RND<7> : 

G0SUB2110 :MR(19)=-1ELSEIFRND(4)=3 

THENPRINT'*R ESFERR BRILHR FORTEMEN 

TE- - - " :P=19 

1680 IFP=MR C 16 ) RNDNOTFP < 13 ) THENIFR 

ND < 7 ) =5THENPRINTV0* ; " : 

-EU,R ESTRTUR,SIMBOLO DE RNIK,DOU- 

LHE UM PRESENTE-- ■ ,, :Mfl(13)=P 

1690 IFMR ( 26 ) =PRNDFP ( 13 ) RNDBL7. ( 6 ) ) 

OTHENPRINTVO*;": 

-EU,0 GUERREIRO DE RNIK,SRUDO PO 

RTRDOR DO CETRO" : BL7.<6) =0 

1700 IFN0TF60RPOMR(25)THEN1720 EL 

SEPRINTVO*" : 

- FRRRRAGH I NyOK ! 

CHEIRO DO VINHO " ? : IFRND(4 ) =3THE 

NPRINT"ENFURECE MRGQ. " = BL7.(5)=9E 

LSEPRINT"ENFRRQUECE MRGO - " : CF% ( 5 

)=CF7.(5)-4 

1710 PRINT"ELE QUEBRR SU" ;OBJ*< 12) 

:FP(12)=0:FG=0 

1720 IFT>60RNDMR(17)=-1THENIFRND<5 

) =1THENMR ( 17 ) =RND ( 15 ) -1 

1730 IFPT >200RNDMR < 23 ) =18THENIFRND 

( S ) =3THENPRINTV04 ? "' : 

-RTE' RGORR VOCE ENFRENTOU OS RPRE 

NDI2ES,MEU CRRQ . . . " : BL7. (3 )=7:MR ( 23 

)=P 

1740 IFFP ( 6 ) RNDMR ( 23 ) =PTHENPRINT "S 

EU ESPELHO DRENR UM POUCO Dfl MRGIR 

DO MESTRE" : CF7.(S)=CF7.(S) -2 
1750 IFP=14THENIFRND ( 10 ) =STHENPRIN 
T"DO RLTO DO MURO SURGE UMR LU2 CI 
N2R- - -" :P=15:FB=0 

1760 IFMR ( 17 )< >-lTHENIFRND ( 10 ) =6TH 
ENPRINTVO*;": 

-";0BJ$(17) ;" ESTR N";L0$(Mfl(17) ) 
1770 IFRN=0RNDP=7THENIFRND ( 20 ) =2TH 
ENRN=RND ( 100 ): PRINT" VOCE LE NUMR C 
RRTR DE BRRRLHOrO NO. MRGICO E'";R 
N 

1780 IFCF<OTHENCF=CF+l:lFFP(li)THE 
NIFCF<-1THENPRINT"V0CE SE RECUPERR 

MRIS DEPRE5Sfl,GRRCPS fl SEU ELMO M 
RGIC0":CF=CF+2 
1790 FT=0 

1300 T=T+1 : IFT/10=INT ( T/10 ) THENPRI 
NT"TEMPO =";T;"MINUTOS" 
1310 G0T0300 
1320 ' 
1330 '=====SUB DE LUTR 
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510 PRINT fi$ 

520 J-NPUT l, DIGn - E VflLORs " *&« 
530 IF R*«"T" THEN 590 
5M0 IF VRL(R*)>8 THEN 560 
550 PRINT EfcsGOTO 510 
56(3 NC=NC+isC(NC)*VRL(R$)^TC»TC+ 
C ( NC ) 

570 IF NC<MC THEN 530 
588 PRINT L$ 

59S PRINT'TOTRL =" yTCsPRINT 
60S PRINT M ENTRE COM AS QUANTJ8S 
REFEREN-" 

610 PRINT"TES ROS SER VI COS PREST 
ADOS E /" 

62Q PRINT'CGNTRS PRGRS PELO BBNO 
Or QUE /" 

638 PRINT'TORRM DEBl'TRDflS EM SUR 
CONTR-" 
640 PRINT m 

650 INPlJ-fDIGITE P0L8ft5 u ?R* 

660 IF R$="T" THEN 710 

670 IF VflL<R*)>0 THEN 698 

680 PRINT Ms GOTO 6U0 

690 NS = NS+.1. sTS=TS+MRL<R$) 

?m GOTO 650 

71.0 PR I NT" TOT RL ="?TS:PRINT 

7Z& GOSUB 888 . 

730 U-Se+TD+TS-Ce-TC-TR=W-R&S(W> 

740 IF W>„001 THEN 770 

750 W=0:PRINT"O GRLRNCO DOS CHEQ 

UES CONFERE!" 

76Q GOTO 796 

770 PRINT" «#«;RTENCBOr SEU BRLRN 



CO NfiO*#tf" 

780 PRINT" ft#######M# CONFERE tt 

790 PRINTaPRINT ,, SRLDO DO EXTRRTO 

BRNCRRIO 4" 
800 PRINT"DEPOSITOS NRO REGISTRfl 
DOS +" 

810 PRINT"TfiXflS DE SERUICO £ n ?SB 
+TO+TS 

820 PRINT :PRINT"SRLDO DO TRLRO D 
E CHEQUES +" 

830 PRINT"CHEQUES NRO RE6ISTRRD0 
S *" 

340 PRINT"DEPOSITOS RECENTES="?C 
B+TC+TR 

850 PRINT:PRINT"DIFERENCR «"?W 
860 PRINT 
370 END 

880 PRINT'DIGITE P QURNTIR DE SE 
US DEPO-" 

390 PRINT-SITOS RERLIZRDOS RP08 
CHEQUE" 

900 PRINT"NUMERO ***"LC"***" 
91© PRINT"QUE CONSTRM EM SEU EXT 
RATO." 
920 PRINT m 

930 INPUT"DIGITE VRLOR: n ?R* 

940 IF R$="T n THEN 990 

950 IF VRL(R*>>0 THEN 970 

960 PRINT E*:GOTO 920 

970 NR=NR+1:TR=TR+VRL<R*) 

980 GOTO 930 

990 PRINT"T0TAL ="?TR=PRINT 
1000 RETURN 



JOGO 



Aterrissagem Lunar 



CP200 16KRAM 



Neste programa voce sera o astronauta que lera por mis- 
sao descer na Lua. Todo o cuidado 6 pouco, na medida 
em que a aterrissagem tera que ser perfeila. Preocupe-se 
sempre com o seu combustivei, pois se o mesmo lerminar 
antes da aterrissagem sua nave caira e se chocara contra 
as rochas lunaticas. 

Mantenha sempre atual as informacoes sobre sua alti- 
tute (em metros), velocidade (km/h), combustivei (litros) 
e a siiuacao de sua nave, isto e, se e!a esta descendo ou 
subindo. 

Cuidado nas deslocacoes, procurando sempre associar 
sua velocidade ao combustivei e a altitude, para nao ser 
surpreendido. Todos os comandos necessarios sao dados 
pelo seu computador pessoal. 

Se a sua aterrissagem for perfeita , telefone para a NASA. 
Voce podera ser o primeiro brasileiro a comprovar que a 
Terra e azul! 
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ijn ■' 



10 
20 
30 
40 
50 
60 
70 
80 
90 



' ***#*#****#*****.**#*+*#***#^ 



RTERRISRGEM LUNAR 



CONP. FES80GIS 



'■* CP-200 * 

' •*####*#*####*##* '#■**#•*•*****"*# 
LET K>0 

LET fl=-200-(INT (RND*60) ) 
LET B=1200+(INT <RND*380)> 
LET C=320+(INT (RND*90>) 
tOO CLS 

110 PRINT "PLT-= ";INT CEO;" MTS- " 
, "COMB.= " ; INT (C) ; " LTS-" 

120 print at 0,15; ■•■mrr 1,13; "■"; 



Conlinua no proximo niimero. 
GERA£AO PROLOGICA 



CURSOS 



CURSO DE BAS 




LIQAO IX 




sta 6 a ultima ligao do nosso curso de BASIC. No 
entanto, as possibilidades dessa linguagem nao estao 
esgotadas. H5 muito que aprender e esperamos que 
estas nove ligoes publicadas na revista Geragao 
Prologica se transformem em ferramentas para um 
aprendizado mais formal e numa introdugSo para as 
varias utilizagoes com seu com putador pessoal. Neste 
numero, conhega a instrugao RESTORE. 



Marilena Occhini Siviero 



Ainscruc&o RESTORE permiieque 
um mcsmo conjunio dc dados dcfinidos 
numa insirucao DATA scja tisado mais 
de uma vcz. No programa a seguir voce 
podcnl noiar esia uiilizacao c o uso do 
valor - 1 na insuucao DATA para mar- 
car o final do loop. Estc rccurso c bas- 
tante uiiiizado cm programas que usam 
a insirucao READ. 



10PRINT"PROGRAMADASOMA 
E DO PRODUTO DE UM 
CONJUNTO DE DADOS'' 

20 READ A 

25 LET P = 1 

30 IF A = - 1 THEN GO TO 50 

40 LETS = S + A 

45 GO TO 20 

50 RESTORE 

60 READ B 

80IFB = -1THEN STOP 

90 LET P = P*B 
100 GO TO 60 
105 PRINT P 
110 DATA 3. 57. 34. 46, 3. 23, 45, 8,-1 



Ao SCf rodado o programa, o com- 
puiador Ic o primeiro dado, realiza as 
opcracocs que o cnvolvem . le o segun- 
doc, assim por dianie. ate o ultimo va- 
lor. A insirucao RESTORE indica ao 
computador que ele dcve rctornar ao 
comeco. Tudo se passa como se exist is- 
se um contador para o numero de vexes 
que a insirucao READ foiusada.avan- 



cando a cada valor lido. Na vcrdadc. a 
insirucao RKSTORE funciona comoo 
reset deste contador, permiiindo scm- 
pre uma nova contagem. 

MATRIZES 

Emlicocsantcriorcsjatrabalhamos 
GOm variaveis. Esias variavcis tinham 
um nomc indicado por uma leira 0u por 
uma Icira c um numero (cm nlgu ns com- 
puiadores, o nomc dc uma variavel po- 
dc scr qualquer conjunio de caracieres 
alfanumcricos, desde que o primeiro 
elcmemo do nomc da variavel scja uma 
leira). Com csias variavcis podemos rca- 
lizar vdrios programas, como o excm- 
plo a seguir: 



5 REM ESTE PROGRAMA SOMA 

TRESNUMEROS 
10 INPUT A. B, C 
20LETD = A + 8 + C 
30 PRINT D 



Agora, suponha quo vocedesejeso- 
mar n3o ires, mas trezentos mimeros. 
O'criamcmc voce tcria dificuldades cm 
in vencar trezentos nomesde variaveis e 
teria um trabalho cnormc cm escrcver 
um programa que fizessc isso. Feliz- 
mentcdispomosde um recurso. Pode- 
mos escrcver este programa usando va- 
riavcis indcxadas: A(4) uma letra scgui- 
da por um numero cm re parenteses. 



A letra indica nao mais uma unica 
variavel, mas uma area reservada da 
memoria que c dctlnida antcriormente 
pcla insirucao DIM. O numero cntrc 
parciucM-.i e um indicee serve para di- 
ferenciar as posieoes da area de memo - 
ria reservada. Assim, A(3) e difcrentc 
dcA(5). A insirucao DIM (abreviatura 
dc DIMENSION) delimits oespaco dc 
memoria que as variaveis podem ocu- 
par. Por cxcinplo, no nosso programa 
dCSCJamos somar 300 numcros; cniao, 
devemos indicar ao compuiador para 
rcservar na memoria 300 elemeiHOS. 



5 REM ESTE PROGRAMA SOMA 
300 NUMEROS 

6 DIM A(300) 

10 FOR I = 1 TO 300 

20 INPUT A(l) 

30 LET N = N + A(l) 

40 NEXT I 

50 PRINT N 



O indicc pode ser uma const ante, 
uma variavel ou uma cxpressao, tanto 
na variavel indcxada como na insirucao 
DIM, desde que sejam intciras. A area 
reser\ada pela memoria c chamada de 
matriz. Noexcmplo que demos, a ma- 
triz icm uma unica dimensao, porquc 
temos um unico indicc, porem, pode- 
mos ler ate cinco indices (dependendo 
do compuiador), o que da uma maior 
flexibilidade aos programas. 
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■ IDOO Quer micros 
U It OO do Brasil 




A Secretaria Especial de 
Informatica (SEI) confirmou 
que o governo sovietico esta 
intercssado em adquirir no 
Brasil, ao longo dos proxi- 
mosanos,70 OOOmicrocom- 
putadores. O Itamaraiy rece- 
beu o pedido sovietico e o en- 
caminhou a SEI e a Associa- 
cao Brasileira de Computa- 



cao (Abicomp) — eniidade 
que reune a industria brasilei- 
ra do setor. Para se ter uma 
ideia da importancia desse 
possivcl negocio, o numero 
total de microcomputadores 
ja fabricados no Brasil e ape- 
nas ligeiramente superior a 
100-000 equipamentos. 



so pievi CONCORD ATA 

tem° a '^mfZ? Ue ' em ™" miCT «°«»Putador Sis- 
tema 600 ou 700 o U um CP 500 modelo M80 po- 

ba£«H ampla an " iSe COn ^ bil de bal ™ « 
balancetcs de sua pequena ou media empresa aira- 

ves do software Indicarc. Cesar Abicalafe, criador 
dc programa. af.rma que o usuario, com es.e soft- 
2T2&E! a tef C ° ndic6eS de prever dificuldades 

anos de a r° r C ° rda ' aS dc empresas com dois 
anos dc anteccdencia. 

CuSa inf ° rma?6eS Pe '° te ' ef0ne (04i) 223 " 8510 - 






""3 CAD/CAM 



O Estaleiro Caneco, no Rio 
dc Janeiro, vai automatizar 
seus processos de conslrucao 
naval. Foi aprovado pela Se- 
cretaria Especial de Informaii- 
ca (SEI) o projeto da empre- 
sa para absoreao dc tccnolo- 

GERACAO PROLOGICA 



gja e criacao de um sistema 
integrado de computacao ele- 
ironica, conhecido como CAD 
/CAM, que permitira que as 
atividades basicas dc concep- 
cao dc navios sejam fcitas 
com mais eficiencia e rapidez. 



suprimentos na 



MOORE 



nnn A t ^°° re ' ma,or em Presa dc formularies con* 
nuos do Brasil, cntrou no mercado dc informaiica 

™ m f ? 0,M0 ime8rar: "*■ «••*£■£ 
e capacnadas a atender grand* e pequenos usua- 

rios nas areas de software, hardware, suprimentos 

ace^onos e manuiencao. Com cinco loias (Porto 

£35; tiba ' fc Pau! °' BeI ° Hortomc e Sa° 
vador) e cmco cntrcposios, a Moore preve um fa- 

luramemo total de 90 mifhoes de dolares S0 ette 
S?;Jte5T i5% Vira ° da Venda de ^Primen- 
bro d 8 " qUe eSlara ° inSta!adas ai * dezem " 




Informatica 
ajuda excepcionais 



Fazer com que a crianca 
excepcional possa desenvol- 
ver scu proprio processo de 
comunicacao, trabalhar sozi- 
nha e ate se tornar indepen- 
dente das pessoas que cuidam 
dela 60 principal objetivo do 
uso dc computadores na es- 
cola paulisia Quero Quero. 

Este projeto, desenvolvi- 
do ha dois anos, permite que 
um menino de 1 5 anos que so 
conseguia piscar os othos, 
possa hoje acender a luz, es- 
crever e tcr todos osconheci- 



mentos equivalentes a um 
aluno de terceiro ano prima- 
rio. Tudo isto so foi possivcl 
com o uso do computador. 
Para esia crianca desen- 
volver todas estas atividades, 
Moyses Cohen Aronis e Car- 
los Alberto Pulino desenvol- 
veram um software especifico 
e adaptaram diversos equipa- 
mentos pcrifericos num mi- 
crocomputador. Esteapara- 
10 permite a qualquer crian- 
ca com lesao cerebral apren- 
der a trabalhar. 



os computadores 
na 



FORD 




nmtr , w * Ja f0rmou a primeira lur ">a de 
CAD df K raS ' le ""° S ******* "0 sistema 
CAD (desenho com auxilio do compuiador). apli- 

Am2,* en f enhar,a - Esses "Pecialistas, pionei os na 
Arnenca La.ma nessa area, ja projetaram cerca de 
50 pevas para os veiculos da linha Ford, inclusive 
■ tens de tecnolog.a avancada para equipar o Car- 
go, caminhao mundial da empresa. 



* 
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ACELERE A VELOCIDADE DO BASIC 
Parte II 

No niimero anterior, publicamos as dicas das aplicacoes 
cspeciais das rotinas. que agilizam o BASIC. Agora, voce 
tera a dica da dica: grave essas sub-rotinas em disquete, 
para posterior uiilizacao, via comando MERGE. Assim, 
pode-se formar uma verdadeira biblioteca de rotinas USR, 
que poderao ser usadas em programas BASIC, desde que, 
quando nccessario, seja reservado espaco suficienic na me- 
moria. Como fazer isio? Simples! 

Usando o mesmo programa, a partir do DOSS00 Ati- 
vo, digitamos CLEAR < ENTER > para (por precaucao) 
limpar todas as variaveis; vamos ao BASIC, e digitamos 
urn programinha bem curto e simples: 



FAQA DE SEU COMPUTADO 
PESSOAL UM PIA 



Neste niimero, para os CPs 500 e 300, uma dica sono- 
ra: o teclado do computador pessoal passara a ser o tecla- 
do de urn piano. Como esta, a Lislagem 1 e um programa 
complete uma vez que a sub-rotina ficara na memoria, 
sendo chamada por meio da funcao USR. Muitas mclho- 
ras poderao ser introduzidas, como por excmplo a detec- 
cao de uma tecla errada em deierminada inf'ormacao de 
dados. 



20 DATA 33, 0,60, 17,1 , 60 , 1 , 

255,3,237,176,201 

30 FORI = 1T012:READD:POKE&HFFFO + l,D:NEXT 
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Observe que usamos ape- 
nas as linhas 20 c 30 do pro- 
grama anterior; rode o pro- 
grama e em seguida retorne ao 
DOS500 Ativo por meio do 
CMD"S" <ENTER>> e 
lance mao do utilitario 
DUMP. (Veja, se ainda nao o 
conhece plenameme, no ma- 
nual.) Para colocar os 12 
bytes que ainda estao nas po- 
sicoes FFF0 e seguintes da me- 
moria num arquivo de disco, 
o comando deve ser emprega- 
do da seguinte forma: 



DUMP ENTELA (START = FFF0.EN D = FFFB) < ENTER > 



Digite DIR < ENTER > e voce vera um novo arquivo 
no diretorio, chamado ENTELA/CMD (talvez o primei- 
ro arquivo / CMD que voce produziu sozinho!). Em 
BASIC, o programador podera utilizar uma linha como: 



10 CMD"L" ( "ENTELA/CMD" 



e a cada vez que (neste nosso caso) desejar encher a tela 
com um caraclere, incluir uma outra linha com a instrucao: 



PRINT@0, "caractere desejado" 



e fazer a chamada da sub-rotina com qualquer argumen- 
to valido. 

Empregando o utilitario DUMP, suprindo com o 
DOS500, para gcrar rotinas USR, tenha o cuidado de faze- 
lo em posicoes de memoria sempre difercntes, seja la quan- 
tas forem, a fim de que seja possivel o uso de ate 10 (quais- 
qucr que sejam as que forem escolhidas), que irao residir 
em locais distimos e simultaneamente na RAM, evitando 
desta forma, o que poderiamos chamar de uma "briga de 
vizinhos". 
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LISTAGEM 1 



1 CLS 

2 PRINT@413."PIANO" 

3 REM " SINTETI2ADOR DE TECLADO " 

4 REM " P. FULVIO G. DEL PICCHIA *• 

5 REM ' DICAS ' GERACAO PROLOGICA r* 
10 DEFINT A-2: DIM T<128) 

15 REM ' CARREGAR ROTINA DO TECLADO " 

20 POKE 16526 : 0: POKE 16527,125 

30 FOR X = 32000 TO 32023: READ D: POKE X D* NEXT X 

35 REM ' DEFININDO LOCAL DE CHAMADA ' 

36 REM ' PARA SISTEMAS SEM DISCOS NAO USAR 
LINHA 37- 

37 DEFUSR0 = 32000 

40 DATA 205, 127, 10, 14, 255, 221, 33, 255, 56. 237, 89. 

69, 16, 254, 28; 203, 155, 175, 221, 190, 0, 200, 24, 241 

45 REM ' CONVERTER CODIGO DO CARACTER 

PARA POSICAO DA TECLA ' 

50 READ T(8), T(9), T(10), T(13). T{31) 

60 FOR I = 44 TO 59: READ T<»- NEXT I 

70 FOR f = 64 TO 91: READ T(i NEXT I 

80 DATA 25, 26, 27, 38, 39, 47, .2, 48, 49, 10, 1, 2, 3, 4, 

5, 6, 7, 8, 9, 11 , 37, 24, 28, 44, 42, 30, 16, 31, 32, 33, 21, 

34, 35, 36, 46. 45, 22, 23, 14. 17, 29, 18, 20, 43, 15, 41, 

iy, 4u, io 

85 REM " AGUARDAR PRESSAO DA TECLA * 

90 P$ = INKEYS 

100 IF PS = U " THEN 90 

105 REM * CONVERTER POSICAO DA TECLA P/FATOR 
DE FREQUENCE* 

106 REM • E ENVIAR PARA A ROTINA EM LINGUAGEM 
DE MAQUINA • 

110 S = ASC(PS): V = T(S) 
120 N = 250-5"V 

125 REM ' SISTEMAS SEM DISCOS USAR LINHA 130 
E NAO A 131- 

130 REM ' X = USR(N) ' 

131 X = USR0(N) 
140 GOTO 90 



Ate o proximo niimero! 

P. Fulvio G. Del Picchia 
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O 



m um controlador de luzes, porta; 
televisores e segredos de coires. 




O seu computador pessoal (CP 500 ou CP 300), alcm 
de ser um poderoso equipamento de trabalho, pode sc 
transformer num eficientc c fiel secrciario particular, con- 
trolando o segredo de seu eofre, accndcndo lampadas nos 
momentos adequados, ligando o seu televisor ou destran- 
cando uma porta. Para tanto, basta um circuito de inter- 
face para implcmentacao desse sistema e os softwares 
adequados. Pronto! Num passe de magica, o seu compu- 
tador transportara sua casa ou escritorio dircto para o se- 
culo XXI. 

Para ajuda-lo nesta tarda, a rcda^ao da revista Gera- 
cao Prol6gica reaiizou pesquisas tecnicas para encontrar 
solucoes de hardware e software que possibilitem tais apli- 



cacdes. Encontramos o programa Trava com -Segredo, de- 
senvolvido por Howard Berenbon c pubiicado no livro 
Aplica?des para o seu TRS-SO, o qual permite a alivaeao 
de um circuito de controle atraves da introducao de uma 
combinacao no seu computador. Elc pode ser usado para 
abrir um cofre, acender uma lampada, ligar o seu televi- 
sor ou destrancar uma porta. 

Siga corretamentc as instrucoes dc operacao, utilize so- 



GERA^AO PROLOGICA 
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uicnie os compOHcmes e circuitOS indicados c digue o?> pro- 
gramas (cm Basic Nivel 1 ou II, cont'orme indicaeao) com 
aiencao para transformar o scu computador pcssoal no 
mais eficientc e fiel secretario particular. 



UTILIZA^AO DA TRAVA 
COMPUTADOR1ZADA 



INTERFACE E CONTROLS 

Os rircuiios de interface c coatrole (figura 1) e a hsta 
de components (Tabela A) sao fundamcntais paFa a im- 
plaiuacao deste programa: a pona de E/S para cassele e 
usada para aiivar o circuiio; o pluguc do cabo de interli- 
gaefo do gravador cassele com oCP e coneciado ao ja- 
que J I do circuito de inierface; os contaios normalnieii- 
le aberios do rele Kl operam o circuito de coulrole; uni 
rele de poEeneia (K2) controla as lampadas ou os aparc 
Ihos. Na versao Basic Nive! I, o programa usa a instrucao 
INPUT A para ativar o circuito. A instrucao OUT 255.4 
e usada na versao Basic Nivcl II. 




CIRCUITO DE INTERFACE 



HA. 




•c.-. 



TOMAOA CA 



CIRCV'TO OE CONTROI.E 



FIGURA 1: Circuiio de interface e com role 



Lista de Componentes dos Clrcuitos 




de Interface e Conirole 


Item 


Descricao 


B1 


Bateria de 9 volts 


B2 


Bateria de 6 volts 


D1, D2 


Diodo de silicio 1N914ou equivalente 


J1 


Jaque 


K2 


Rel6 de 5 ou 6 volts CC, 500 ohms, urn 




polo, duas posicoes (Radio Shack 




275-004 ou equivalente) 




Rele de 6 volts CC. 350 ohms, urn p6- 




lo, duas posicoes. corrente e tensao 




nominais: 3.5A e 117VCA (Allied Elec- 




tronics 802-1880, serie 1345 ou equi- 




valente) 


Outros 


Tomada CA; linha de 1 1 7VCA com plu- 




gue; garras 



Para construir a trava ativada por computador voce de- 
vera substituir o rele K2 por urn solcnoide. Veja a figura 
2 para vcrificar as akeracoes no circuito. Nesta constru- 
cao, K I e B2 sao exatamente iguais aos da figura I . () so 
lenoidc e de 6 volts, 2 oz a, no maxinio, I/4" (Allied 
Electronics 802-1111 ou equivalente). O embolo do solc- 
noide e usado para trancar uma pona ou um cofre. 

Um sistema perfeito necessitaria de um tcclado auxiliai 
externo para introduzir a combinacao. Isto eliminaria o 
accsso dircto ao computador. impedindo os curiosos de 
mexer no seu programa. 

Um sistema de iluminaeaoou controlc de aparelhos. do- 
mesticos poderao ser ativados tambem com este progra 
ma. O aparelho e conectado na tomada CA para ativacSo 
Veja a figura 3 para tcr uma ideia do desenrolar do 
programa. 







30LEMOI0E 






/ 4=^ 




"' fw 


r=p 








/ 








82 








'I'l'l 





FIGURA 2: Circuiio de solenbidc para uma trava computadorizada 



TRAVA COM SEGREDO:TRS-80 NIVEL II 
DIREITOS AUTORAIS {Q 1980 DE HOWARD 
BERENBON 



INTRODUZA O MODO? 

"1'PARA GRAVAR A NOVA COMBINACAO 
2 PARA TER ACESSO A COMBINACAO 
?1 

GRAVACAO DA NOVA COMBINACAO 
INTRODUZA ATE 250 CARACTERES, 
LETRAS E/OU NUMEROS 
7MARINHA 

COMBINACAO GRAVADA 
INTRODUZA O MODO? 

'1'PARA GRAVAR A NOVA COMBINACAO 
2PARA TER ACESSO A COMBINACAO 
?2. 
MODO DE ACESSO 

DIGITE A COMBINACAO 

? MARINHA 

ABERTO 

DIGITE UM F'PARA FECHAR 

?F 

FECHADO 



FIGURA 3: Amostra da exccucao do programa Tcava com Segredo 
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PROGRAMA NIVEL I 

O programa Nivcl 1 pcrmitc a cmrada de uma combi- 
nacao de ate 18 digiios. Voce podera gravar uma nova 
combinaeao, bastando digitar o numcro 1. Os dados de- 
vem ser introduzidos de acordo com o formato: X. Y, Z. 
Cada variavel deve corner, no mdximo, seis digiios. Ao 
digiiar o numcro 2, voce cnirara no Modo de Accsso para 
operacao do circuiio clc controle. Imroduza a combina- 
eao como nos seguimes exemplos: 

21034,111.1802 ou 2153.101,0 

As duas virguias sao imprescindivcis. pois devcm scr in- 
(rodtizidas sempre ires variaveis. 

O programa nao saira desie modo de operacSo. A in- 
troducao da rcsposta correia aiivara o circuiio de contro- 
le e fara aparecer a mensagem ABERTO na lela. O circuiio 
permanecera ativado ale que o boiao de inicializacao do 
compuiador seja press ionado. Sc houver urn erro na cn- 
irada, aparecera a mensagem ERRO. REDIGITE. A men- 
sagem PROIBIDA A ENTRADA sera cxibida apos ires 
tcniaiivas malsucedidas. Pressione BREAK para voliar ao 
READY. 



LISTAGEM DO PROGRAMA DE TRAVA 
COM SEGREDO — NIVEL I 



100 PRINT"TRAVA COM SEGREDO:TRS-8Q NIVEL I" 
110 PRINT-DIREITOS AUTORAlS (C) 1980 DE 

HOWARD BERENBON" 
120 PRINT 

130 PRINT'INTRODUZA O MODC>" 
140 PRINT" 1'PARA GRAVAR A NOVA 
COMBINACAO" 

n mnMr'' 2 ' PARA TER ACES SO A COMBINACAO 
INPUT A 

170 IF A=1 THEN 200 

180 IF A ~2 THEN 260 

190 GOTO 130 

200 PRINT-GRAVACAO DA NOVA COMBINACAO" 

210 PRINT-INTRODUZA ATE 6 DIGITOS POR 

220 PRlNT"NO FORMATO: X.Y.Z" 
230 INPUT X.Y.Z 

240PRINT'COMBINACAO GRAVADA" 
250 GOTO 130 
260 CIS 

270 PRINT'-MODO DE ACESSO" 

280 PRINT 

290 PRINT-DIGITE A COMBINACAO" 

300 N = 3 

310 INPUT U.V.W 

320 N = N - 1 

330IF(X = U)* (Y = V) '{2 = W) THEN 350 
340 GOTO 390 
350 GOSUB 420 
360 INPUT »A 

370PRINT"ENTRADA PROIBIDA" 
380 GOTO 380 

390 IF N = THEN 370 

400PRINT"ERRO. REDIGITE" 

410 GOTO 310 

420 PRINT"ABERTO" 

430 RETURN 



PROGRAMA NIVEL II 

A vcrsao Nivcl II permile a cnlrada dos numeros e !e- 
iras eonsianies na combinaeao (no maxirno, 250 caraete- 
res). Imroduza a combinavSo como no cxemplo abaixo: 



205ABCDEFGH 



Este programa c scmelhanec ao da versao Nivel I . po- 
rem voce deve imroduzir urn C para desaiivar o circuiio 
de controle. 



LISTAGEM DO PROGRAMA DE TRAVA 
COM SEGREDO- NIVEL II 



100 PRINT'-TRAVA COM SEGREDO:TRS-80 NIVEL II" 
110 PRINT"DIREITOS AUTORAlS (CJ 1980 DE 

HOWARD BERENBON" 
120PRINT:CLEAR600 
130 PRINT"INTRODU2A O MODO*?" 
140 PRINT" 1 PARA GRAVAR A NOVA 

COMBINACAO" 
150 PRINT"'2'PARA TER ACESSO A COMBINACAO" 
160 INPUT A 
170 IF A=1 THEN 200 
180 IF A = 2THEN 260 
190 GOTO 130 

200PRINT"GRAVACAO DA NOVA COMBINACAO" 
210 PRINT"INTRODU2 ATE 250XARACTERES " 
220PRINT-LETRAS E/OU NUMEROS" 
230 INPUT AS 

240PRINT"COMBINACAO GRAVADA" 
250 GOTO 130 
260 CLS 

270 PRINT"MODO DE ACESSO" 
280 PRINT 

290 PRINT"DIGITE A COMBINACAO" 
300 N = 3 
310N = N-1 
320 INPUT BS 

330 IF AS < > BS THEN 460 
340 GOSUB 490 
350 OUT 255,4 

360 PRINT"DIGITE UM "F'PARA FECHAR" 
370 INPUT CS 

380IFCS< > "F"THEN 360 
390 OUT 255,0 
400 PRINT"FECHADO" 
410 FOR A = 1TO990 
420 NEXT A 
430 GOTO 260 

440PRINT"ENTRADA PROIBIDA" 
450 GOTO 450 
460 IF N = 0THEN 440 
470PRINT-ERRO, REDIGITE" 
480 GOTO 310 
490PRINT"ABERTO" 
500 RETURN 
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LI VROS 




O Computador: urn Novo 
Super-Her6i , dc Maria Ceci- 
lia C. Baranauskas e Heloisa 
V. R. CorreiaSilva, Cartgraf 
Editora, Cr$ 19.000. 

Este livro COllta a historia 
de pessoas que esliveram en- 
volvidas no processo dc evo- 
lucaodainformacao, daida- 
de da pedra ate os tempos dos 
chips desilicio. Voce vera co- 
mo uma informacao qual- 
quer 6 cniendida e trabalha- 
da pelo compuiador cm suas 
diversas paries. Para quern 
quiser ir mais alem, existem 
tambem dois apendices com 
programas escritos na lingua- 
gem Basic c programas fcitos 
por criancas na linguagem 
LOGO. 




Basic Rapido: Alem do Basic 
TRS-80, de George A. Grat- 
zer e Thomas G. Gratzer, 
256 pags., Editora Campus. 
Basic e a mais simples e po- 



pular linguagem de progra- 
macao. Entrctamo, em mui- 
tos programas, a resposta do 
compuiador e inconveniente- 
menie lenia. A solucao c Ba- 
sic Rapido. Qualquer coisa 
que voce faca com o Basic de 
seu TRS-80, Basic Rapido faz 
melhor ainda, garantcm seus 
autores. Com -este livro, £ 
possivel lornar t res ou quatro 
vezes mais rapidos os calcu- 
los aritmeticos ou aumentar 
em mil vezes a velocidadc dc 
algumas funcoes. E tudo o 
que voce precisa sao os nomes 
de 60 roiinas na memoria e 
menos de 20 insirucdes em 
linguagem Assembly. Misiu- 
re Basic e linguagem de ma- 
quina c o resultado e a velo- 
cidade e eficiencia. 




Introdueao a Linguagem Ba- 
sic para Microcomputadores, 

de Carlos Lederman, Can- 
graf Editora, Cr$ 28.000. 

Quern procura algo mats 
que uma simples introducao 
na linguagem Basic, encontra 
nesta obra caracten'siicas 
fundamentais, como a ques- 
tao de agilidade. Um livro au- 
todidatico e pratico, ilustra- 
do com teclado de video do 
microcomputador, onde o 
autor aborda temas para 
aqueles que nao possuem co- 
nhecimento do Basic, assim 
como para os que ja se inicia- 
ram nesta linguagem. 




Padroesem Programacao — 
Melodos e Procedimentos. 

de G. Longworth, 234 pagi- 
nas, Editora Campus. 

Fazer da programacao 
uma atividade mais simples, 
gratificantee profissionai e o 
objetivo deste manual. Des- 
tinado a constituir uma refe- 
renda util para programado- 
res experientes, ele cobre to- 
das as eiapas do processo que 
se inicia com o projeto e de- 
senvolvimento dos progra- 
mas, passa pelas fases de co- 
dificacao e teste, e se estende 
as de implementacao, manu- 
tencao, revisao e opti- 
mizacao. 




Alem do Basic: Linguagem 
Assembly para a Linha Sin- 
clair, de Nelson N. S. Santos, 
161 pags-, Editora Campus. 
Este e o primeiro livro di- 
datieo sobre linguagem de 



maquina para micros da li- 
nha Sinclair. Evitando as for- 
mulas magicas, o autor escla- 
rece as duvidas e desvenda to- 
dos os misterios desta dificil, 
mas fascinante linguagem. 
Atraves de uma abordagem 
simples ccoloquial, ensina as 
primeiras instrucoes As- 
sembly em programas dc 
complexidade cresceme, que 
o leitor aprende a elaborar 
atraves de grandc numero de 
exercicios cuidadosamentc 
selecionados. Um grande nu- 
mero de rotinas em lingua- 
gem de maquina enriquece e 
simplifica tambem os progra- 
mas em Basic. 




O Microcompulador no 
Consultorio Medico, de Luiz 
Gonzaga Camargo Nasci- 
mento, Cartgraf Editora, 
CrS 24.000. 

Esta obra levama os con- 
ceitos basicos da informatica 
e demons! ra os procedimen- 
tos de uma consulta medica, 
desde a identificacao do pa- 
ciente, ate a elaboracao da re- 
ceita e da orientavao para 
exames clinicos. Alem disso, 
o livro da destaque para a ela- 
boracao dc fluxogramas e 
diagramas dc blocos e estu- 
do de anatomia do Basic. 
Quanto a parte clinica, sao 
apresentadas as rotinas basi- 
cas para o desenvolvimemo 
de programas. 
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O professor ideal 



informatica 



OCP200Seoparceiro 
ideal dos iniciantes. 

Dylfl Qo I IlCIQl llwO desenvolve as primeiras 
f\f\ rYto inrln Ha liQoesem computagao. 

Iv Ivll l\Jt\J VIC Qualquercriangapodeutiliza 

lo para resolver tarefas 
escoiares ou simplesmente 



curtir os mais divertidos jogos 
de video-game. 
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TECNOLOGtA m 
PROLOGCA in 



COMPuUDOR£i> fEUSQAKi 

RUA PTOkQM&U. mvilA VJUJHHvtJAV rMvttfW 
CEPQ47G2 FQNE fPBX)5S' 



CB400 

MICROCOMPUTADOR=COLOR 




QUEM TEM UMJEM FUTURO. 



VOCE TEM QUE ESTAR PREPARADO 
PARA SE DESEN\ f OLVER COM OS 
NOVOS TEMPOS QUE ESTaOaJ. EO 
CP 400 COLOR E A CHAVE DESSA 
EV^LUgAO PESSOAL E PROHSSIONAL. 





PORQUE? 
TORQUE OCP 400 
COLOR EUM 
COMPUTADOR 
PESSOAL 
DE TEMPO 

INTFjGRAL: OTIL _ 
PARAAFAMflJATODA.ODIA 
INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO.EMWTOMAIS 
EMOCION'ANTE PORQUE. ALE.M DE 
OKERECER JOGOS LNEDITOS, 
E GNICO COM DOIS JOYSTICKS 
ANALOGICOSDEALTA 
SENSIBIUBADE, QUE PERMTTEM 
MOVLMENTAR AS IMAGENS 
EM TODAS AS DlREfOES, MESMO 

NAHORADETRABALHARE 
ESTUDAR, CP 400 COLOR MOSTKA 
SEULAIX3SERI0:MEM0RIA 
EXPANSfVEL, PORTA PARA COMU- 
NICAfAO DE DADOS, SAIDA PARA 
IMPRESSORA E DMA 6TLMA NITtDEZ 
COMIMAGENSCOLORIDAS. 

C0M0SETUDO1SSONAO 
BASTASSE, A PROL()GICA AINDA 
OFERECEAGARANTIADE 
QUAUDADE DE QUEM £ 1.1DER NA 
TECNQLOCtADECOMPUTA- 
DORES, E PREgO MAIS ACESSfVEL 
NACATEGOR1A. 

NUMA ERASE: SEVOCfeNAO 
QUiSER CHEGAR ATRASADO AO 
FUTURO, COMPRESEUCP 400 



COLOR IMEDIATAMENTE. 

EMO0O E INTEUGENCiA NUM 
EQMPAMENTOS6. 

• CV1AGENS COM ATE 9 CORES. 

• 6TLV1A RESOLUfAO: 49. 1 52 PONTOS 

• DUAS VERSOES A SUA ESCOLHA; 
16KOU64KDEMEM6RIARAM. 

• MEMORIA RAM EXPANSfVEL VOC'fi 
COMECA COM 16K E PODE CHEGAR 
ATE64KCOMDISQUETES. 

• UTHJ2A CARTUCHOS PARA APLICA- 

TIVOSE JOGOS: 
BANCO DE DADOS 
EDITOR DETEX- 
T0S,PLAN1LHAS 
aETRONlCAS, 
GRAHCOS, 
ENTREOUTROS. 
MEMORIA 
EXTERNA EM 

CASSETEOUDISOUETE 

DISK-SYSTEM, CP 450. 
» PORTA RS 232 C LVCORPORADA. 

PERMIT1NDO COMUNICAfAO 

DE DADOS E UGAfAO DRET A A 

IMPRESSORA 

SERLAL. 
►PERMITECOM- 

PETjgAO DE 2 

JOGADORESAO 

MESMO TEMPO. 

SEUS JOYSTICKS 

ANALOGICOS 

OFERECEM INFI- 

NfTASPOSigOES" 




NA TELA, ENQUANTO OUTROS Tl-M 
SOMENTE 
8DIREgOES. 
• GRANDE QUAN 
DADEDE 
PROGRAMAS 
ADISPOSigAO: 
APUCATIVOS 
PESSOAIS.PROFIS- 
SIONAISE JOGOS. ■ 

VEJA. TESTE ECOMPRE 
SEU CP 400 COLOR NOS MAGAZLNES 
6 REVENDEDORES PROLOGICA. 

TECNOLDGIA Ml 
PROLOGICA ■■■ 





COMPUTADORES PESSOAIS 

PUAPTOiOUEV. S50 - WW socoppo 
SAD PAULO -SP- CEP Q4762 
-C£ PSX152M633 




